home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / game / 2play / BattleDuel.lha / BattleDuel / BattleDuel_Install next >
Encoding:
Text File  |  1998-04-15  |  8.0 KB  |  267 lines
  1. ;======================================================================
  2. ;
  3. ; BattleDuel Install Script $VER: Install 1.7 (15.4.98)
  4. ;
  5. ; Copyright © 1995-1998 Jochen Terstiege
  6. ;
  7. ;======================================================================
  8. ;
  9. ;======================================================================
  10. ; language strings
  11. ;======================================================================
  12.  
  13. (set language
  14.     (askchoice
  15.         (prompt ("Please select a language:\nBitte wählen Sie eine Sprache aus:"))
  16.         (help @askchoice-help)
  17.         (choices "English"
  18.                     "Deutsch")
  19.     )
  20. )
  21.  
  22. (if (= language 0)
  23.     (
  24.         (set #hello "\nWelcome to the BattleDuel Installation and Update\n\n\Version 1.7.85")
  25.         (set #update (cat "BattleDuel is already installed on your system. "
  26.                                 "Some old files will be deleted and the new ones installed."))
  27.         (set #select_destination "Please create or select a directory where the BattleDuel files should be copied to!")
  28.         (set #destination_help "Choose a destination directory or create one yourself.")
  29.         (set #install_to1 "\nInstall BattleDuel to \"")
  30.         (set #install_to2 "\" ?")
  31.         (set #have_fun "Have fun with BattleDuel...")
  32.         (set #which_chipset "Which Chipset do you have?")
  33.         (set #want_mwb_icons "Do you want to install MagicWB icons?")
  34.         (set #mwb_icons (cat "MagicWB is a set of nice icons with 8 colors.\n"
  35.                                     "MagicWB is © by Martin Huttenloher"))
  36.         (set #warning_msg (cat "This update should only be used with version 1.5.42 or higher "
  37.                                     "of BattleDuel! If you apply it to an older version, there could "
  38.                                     "be some problems with the old landscapes. If you are a registered "
  39.                                     "user, you should contact the authors to get the right update."))
  40.         (set #assign_msg (cat "The assign BD: is no longer necessary. Please remove the line from "
  41.                                 "your user-startup."))
  42.         (set #registered_msg (cat "You are a registered user. If you use the version for graphicboards, "
  43.                                     "please contact the authors to get the remaining new landscapes!"))
  44.     )
  45. )
  46. (if (= language 1)
  47.     (
  48.         (set #hello "\nWillkommen zur BattleDuel Installation und Update\n\n\Version 1.7.85")
  49.         (set #update (cat "BattleDuel ist auf ihrem System schon installiert. "
  50.                                 "Einige alte Dateien werden gelöscht und die neuen Dateien werden installiert."))
  51.         (set #select_destination "Bitte erstellen Sie ein Verzeichnis oder wählen Sie aus, wo die BattleDuel-Dateien installiert werden sollen!")
  52.         (set #destination_help "Wählen Sie ein Verzeichnis aus oder erstellen Sie selber eins.")
  53.         (set #install_to1 "\nBattleDuel nach \"")
  54.         (set #install_to2 "\" installieren?")
  55.         (set #have_fun "Viel Spaß mit BattleDuel...")
  56.         (set #which_chipset "Welchen Chipsatz haben Sie?")
  57.         (set #want_mwb_icons "Wollen Sie MagicWB Icons installieren?")
  58.         (set #mwb_icons (cat "MagicWB ist ein Set von Icons mit 8 Farben.\n"
  59.                                     "MagicWB ist © by Martin Huttenloher"))
  60.         (set #warning_msg (cat "Dieses Update sollte nur mit Version 1.5.42 oder neuer von "
  61.                                     "BattleDuel benutzt werden! Wenn Sie es auf eine ältere Version "
  62.                                     "anwenden, gibt es evtl. Probleme mit den alten Landschaften. "
  63.                                     "Wenn Sie registrierter Benutzer sind, kontaktieren Sie die Autoren, "
  64.                                     "um ein passendes Update zu bekommen."))
  65.         (set #assign_msg (cat "Das Assign BD: wird nicht mehr benötigt! Bitte entfernen Sie es aus "
  66.                                     "der User-Startup."))
  67.         (set #registered_msg (cat "Sie sind registrierter Benutzer. Wenn Sie die Version für Grafikkarten "
  68.                                     "benutzen, kontaktieren Sie bitte die Autoren, um die restlichen neuen "
  69.                                     "Landschaften zu bekommen!"))
  70.     )
  71. )
  72.  
  73. ;======================================================================
  74. ; variables
  75. ;======================================================================
  76.  
  77. (set inputdir    (pathonly @icon))        ; from where we were started
  78.  
  79. ;======================================================================
  80. ; welcome
  81. ;======================================================================
  82.  
  83. (message #hello)
  84.  
  85. ;======================================================================
  86. ; ask for directory
  87. ;======================================================================
  88.  
  89. (set def (getassign "BD"))        ; default destination
  90. (if (= def "")
  91.     (
  92.         (set def "Work:")
  93.         (set bd_dest
  94.             (askdir
  95.                 (prompt #select_destination)
  96.                 (default def)
  97.                 (help #destination_help)
  98.             )
  99.         )
  100.         (message (cat #install_to1 bd_dest #install_to2))
  101.         (if (exists (tackon bd_dest "BattleDuel"))
  102.             (set update true)
  103.         )
  104.     )
  105.     (
  106.         (set assign true)
  107.         (set bd_dest def)
  108.         (set update true)
  109.     )
  110. )
  111.  
  112. (makeassign "BD" bd_dest)
  113. (set @default-dest bd_dest)
  114.  
  115. (if (= update true)
  116.     (message #update)
  117. )
  118.  
  119. ;======================================================================
  120. ; check for old version
  121. ;======================================================================
  122.  
  123. (if (= update true)
  124.     (    (set version (getversion "BD:BattleDuel"))
  125.         (set ver (/ version 65536))
  126.         (set rev (- version (* ver 65536)))
  127.         (if (and (= ver 1) (< rev 5))
  128.             ( (message #warning_msg) )
  129.         )
  130.     )
  131. )
  132. ;======================================================================
  133. ; ask for chipset
  134. ;======================================================================
  135.  
  136. (set chipset
  137.     (askchoice
  138.         (prompt #which_chipset)
  139.         (help @askchoice-help)
  140.         (choices "ECS" "AGA" "Graphicboard")
  141.         (default 0)
  142.     )
  143. )
  144.  
  145. ;======================================================================
  146. ; delete old files
  147. ;======================================================================
  148.  
  149. (if (= update true)
  150.     (
  151.         (delete "BD:Landscapes/ECS/LandscapeUR.iff")
  152.         (delete "BD:Landscapes/AGA/LandscapeUR.iff")
  153.         (delete "BD:Mods/mod.BattleDuel")
  154.     )
  155. )
  156.  
  157. ;======================================================================
  158. ; copy files
  159. ;======================================================================
  160.  
  161. (complete 0)
  162.  
  163. (if (not (exists "BD:Gfx"))
  164.     (makedir "BD:Gfx")
  165. )
  166. (if (not (exists "BD:Landscapes"))
  167.     (makedir "BD:Landscapes")
  168. )
  169. (if (not (exists "BD:Mods"))
  170.     (makedir "BD:Mods")
  171. )
  172. (if (not (exists "BD:Settings"))
  173.     (makedir "BD:Settings")
  174. )
  175. (if (not (exists "BD:Catalogs"))
  176.     (makedir "BD:Catalogs")
  177. )
  178.  
  179. (complete 10)
  180. (copyfiles (source "BattleDuel") (dest "BD:"))
  181.  
  182. (complete 20)
  183. (if (= chipset 0)
  184.     (copyfiles (source "Gfx/ECS") (dest "BD:Gfx/ECS") (all))
  185. )
  186. (if (= chipset 1)
  187.     (copyfiles (source "Gfx/AGA") (dest "BD:Gfx/AGA") (all))
  188. )
  189. (if (= chipset 2)
  190.     (copyfiles (source "Gfx/GFXBOARD") (dest "BD:Gfx/GFXBOARD") (all))
  191. )
  192.  
  193. (complete 30)
  194. (if (= chipset 0)
  195.     (copyfiles (source "Landscapes/ECS") (dest "BD:Landscapes/ECS") (all))
  196. )
  197. (if (= chipset 1)
  198.     (copyfiles (source "Landscapes/AGA") (dest "BD:Landscapes/AGA") (all))
  199. )
  200. (if (= chipset 2)
  201.     (copyfiles (source "Landscapes/GFXBOARD") (dest "BD:Landscapes/GFXBOARD") (all))
  202. )
  203.  
  204. (complete 40)
  205. (copyfiles (source "Mods") (dest "BD:Mods") (all))
  206. (complete 50)
  207. (copyfiles (source "Settings") (dest "BD:Settings") (all))
  208. (complete 60)
  209. (copyfiles (source "Catalogs") (dest "BD:Catalogs") (all))
  210.  
  211. ;======================================================================
  212. ; copy selected language
  213. ;======================================================================
  214.  
  215. (if (= language 0)
  216.     ( (copyfiles (source "English") (dest "BD:") (all)) )
  217. )
  218. (if (= language 1)
  219.     ( (copyfiles (source "Deutsch") (dest "BD:") (all)) )
  220. )
  221. (complete 70)
  222.  
  223. ;======================================================================
  224. ; add MagicWB icons?
  225. ;======================================================================
  226.  
  227. (set mwb
  228.     (askbool
  229.         (prompt #want_mwb_icons)
  230.         (help #mwb_icons)
  231.         (choices "Yes" "No")
  232.         (default 1)
  233.     )
  234. )
  235.  
  236. (if (= mwb 1)
  237.     ( (copyfiles (source "MWB_Icons") (dest "BD:") (all)) )
  238.     ( (copyfiles (source "Icons") (dest "BD:") (all)) )
  239. )
  240. (complete 80)
  241.  
  242. ;======================================================================
  243. ; set tooltypes
  244. ;======================================================================
  245.  
  246. (tooltype
  247.     (dest "BD:BattleDuel")
  248.     (settooltype "DISPLAY_ID" "0x0")
  249. )
  250. (complete 90)
  251.  
  252. (if (= assign true)
  253.     ( (message #assign_msg) )
  254. )
  255.  
  256. (if (or (exists ("BD:BattleDuel.key"))
  257.           (exists ("devs:BattleDuel.key"))
  258.           (exists ("s:BattleDuel.key")) )
  259.     ( (message #registered_msg) )
  260. )
  261.  
  262. (makeassign "BD")
  263.  
  264. (complete 100)
  265.  
  266. (exit #have_fun)
  267.